import ports;
import volOnewayRequest;

onewayPortTest is package{

  S2 is {
    testAction((X has type string)) do logMsg(info,"P2:$X");
  }
  
  Port_In is port{
    _notify(Fn) do Fn(S2);
    _request(Fn,Qt,Fr) do Fn(S2);
    _query(Fn,Qt,Fr) is Fn(S2);
  };
  
 
  P1 is connectPort_Out(Port_In);
  
  main() do {
    P1._request((procedure(Schema) do Schema.testAction("P1 sends greetings")),
              (function() is quote((procedure(Schema) do Schema.testAction("P1 sends greetings")))),
              (function() is hash{}));
  }
}